home *** CD-ROM | disk | FTP | other *** search
- object frmObject: TfrmObject
- Left = 243
- Top = 304
- HelpContext = 176
- BorderStyle = bsDialog
- Caption = 'Object'
- ClientHeight = 226
- ClientWidth = 465
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object bvlInsert: TBevel
- Left = 4
- Top = 4
- Width = 456
- Height = 187
- Shape = bsFrame
- IsControl = True
- end
- object lblAlignment: TLabel
- Left = 264
- Top = 103
- Width = 46
- Height = 13
- Alignment = taRightJustify
- Caption = 'Ali&gnment'
- FocusControl = cmbAlign
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblWidth: TLabel
- Left = 12
- Top = 132
- Width = 28
- Height = 13
- Caption = '&Width'
- FocusControl = txtWidth
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblHeight: TLabel
- Left = 158
- Top = 132
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = '&Height'
- FocusControl = txtHeight
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBorder: TLabel
- Left = 271
- Top = 134
- Width = 39
- Height = 11
- Alignment = taRightJustify
- Caption = '&Border'
- FocusControl = txtBorder
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object lblHSpace: TLabel
- Left = 12
- Top = 160
- Width = 39
- Height = 13
- Caption = 'HSpace'
- FocusControl = txtHSpace
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblVSpace: TLabel
- Left = 151
- Top = 160
- Width = 38
- Height = 13
- Alignment = taRightJustify
- Caption = '&VSpace'
- FocusControl = txtVSpace
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblDir: TLabel
- Left = 176
- Top = 103
- Width = 13
- Height = 13
- Alignment = taRightJustify
- Caption = 'D&ir'
- FocusControl = cmbDir
- end
- object lblStyle: TLabel
- Left = 208
- Top = 74
- Width = 23
- Height = 13
- Alignment = taRightJustify
- Caption = '&Style'
- FocusControl = txtStyle
- end
- object lblClassID: TLabel
- Left = 12
- Top = 103
- Width = 39
- Height = 13
- Caption = 'C&lass ID'
- FocusControl = txtClassID
- end
- object lblCode: TLabel
- Left = 12
- Top = 18
- Width = 25
- Height = 13
- Caption = '&Code'
- FocusControl = cmbCode
- end
- object lblData: TLabel
- Left = 12
- Top = 46
- Width = 23
- Height = 13
- Caption = '&Data'
- FocusControl = cmbData
- end
- object lblType: TLabel
- Left = 12
- Top = 74
- Width = 24
- Height = 13
- Caption = '&Type'
- FocusControl = txtType
- end
- object cmbAlign: TComboBox
- Left = 314
- Top = 101
- Width = 54
- Height = 21
- Hint = 'Alignment of insert object'
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'default'
- 'texttop'
- 'middle'
- 'textmiddle'
- 'baseline'
- 'textbottom'
- 'eft'
- 'center'
- 'right'
- '')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- end
- object txtHeight: TMaskEdit
- Left = 193
- Top = 130
- Width = 54
- Height = 21
- Hint = 'Height in units'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- OnKeyPress = NumericKeyPress
- end
- object txtBorder: TMaskEdit
- Left = 314
- Top = 130
- Width = 54
- Height = 21
- Hint = 'Border thickness in units'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- OnKeyPress = NumericKeyPress
- end
- object txtHSpace: TMaskEdit
- Left = 72
- Top = 158
- Width = 54
- Height = 21
- Hint = 'Extra horizontal space'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- OnKeyPress = NumericKeyPress
- end
- object txtVSpace: TMaskEdit
- Left = 193
- Top = 158
- Width = 54
- Height = 21
- Hint = 'Extra vertical space'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 13
- OnKeyPress = NumericKeyPress
- end
- object txtWidth: TMaskEdit
- Left = 72
- Top = 130
- Width = 54
- Height = 21
- Hint = 'Width in units'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 0
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnKeyPress = NumericKeyPress
- end
- object cmbDir: TComboBox
- Left = 193
- Top = 101
- Width = 54
- Height = 21
- Hint =
- 'The direction characters are read in the chosen language (LANG a' +
- 'ttribute)'
- ItemHeight = 13
- Items.Strings = (
- 'LTR'
- 'RTL')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object txtClassID: TEdit
- Left = 72
- Top = 101
- Width = 54
- Height = 21
- Hint = 'The class identifier of the object'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object cmbCode: TComboBox
- Left = 72
- Top = 16
- Width = 295
- Height = 21
- Hint =
- 'A URL referencing where to find the code which implements the ob' +
- 'ject'#39's behaviour'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Sorted = True
- TabOrder = 0
- end
- object cmbData: TComboBox
- Left = 72
- Top = 44
- Width = 295
- Height = 21
- Hint = 'A URL referencing the object'#39's data'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Sorted = True
- TabOrder = 2
- end
- object bbtnDataURL: TBitBtn
- Left = 373
- Top = 40
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = bbtnDataURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object bbtnCodeURL: TBitBtn
- Left = 373
- Top = 12
- Width = 77
- Height = 27
- Hint = 'Open the URL Builder'
- Caption = 'URL'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = bbtnCodeURLClick
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777070000007777777777777770000000000000000000007700070000000FFF
- FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700
- 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778
- 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF
- FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700
- 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777
- 777777000000}
- end
- object txtType: TEdit
- Left = 72
- Top = 72
- Width = 121
- Height = 21
- Hint = 'The Internet Media Type of the object'#39's data'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object txtStyle: TEdit
- Left = 240
- Top = 72
- Width = 127
- Height = 21
- Hint = 'Rendering information'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object Ok: TBitBtn
- Left = 214
- Top = 197
- Width = 77
- Height = 25
- Hint = 'Insert standard <IMG> tag'
- Caption = 'Ok'
- Default = True
- ModalResult = 1
- TabOrder = 14
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object Cancel: TBitBtn
- Left = 298
- Top = 197
- Width = 77
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 15
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object Help: TBitBtn
- Left = 382
- Top = 197
- Width = 77
- Height = 25
- Caption = 'Help'
- TabOrder = 16
- OnClick = HelpClick
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object chkDeclare: TCheckBox
- Left = 312
- Top = 160
- Width = 97
- Height = 17
- Hint = 'Specifies an object without inserting it into the document'
- Caption = 'Decla&re'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 17
- end
- end
-